﻿Imports Microsoft.VisualBasic

Public Class BattleshipGridSquare
    Private m_ShipExists As Boolean
    Private m_ShotState As Integer
    Private m_ShipName As String
    Private m_mysprite As Image

    Public Property ShipExists() As Boolean
        Get
            Return m_ShipExists
        End Get
        Set(ByVal value As Boolean)
            m_ShipExists = value
        End Set
    End Property

    Public Property ShipName() As String
        Get
            Return m_ShipName
        End Get
        Set(ByVal value As String)
            m_ShipName = value
        End Set
    End Property

    ' 0: no shot made, 1: shot made, miss, 2: shot made, hit
    Public Property ShotState() As Integer
        Get
            Return m_ShotState
        End Get
        Set(ByVal value As Integer)
            m_ShotState = value
        End Set
    End Property

    Public Property ShipSprite As Image
        Get
            Return m_mysprite
        End Get
        Set(ByVal value As Image)
            m_mysprite = value
        End Set
    End Property

    'constructor
    Public Sub New()
        Me.m_ShipExists = False
        Me.m_ShotState = 0
    End Sub

End Class
